home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
t_os
/
apocalyp
/
apocalyp.bas
next >
Wrap
BASIC Source File
|
1993-11-30
|
1KB
|
49 lines
10 ' ------------
20 ' 初期設定
30 ' ------------
40 CLS
50 '
51 PRINT "*** 『黙示録の獣』発見ソフト ***":PRINT
52 '
60 ' -----------
70 ' メインループ
80 ' -----------
90 WHILE 1
100 PRINT "英字で入力して下さい(入力の無いとき終了します)"
110 INPUT S$
120 PRINT
130 '
140 IF S$ = "" THEN SYSTEM
150 '
160 ' ----- 入力文字を判定します -----
170 N = 0 ' 足し込み領域をクリアします
180 '
190 FOR I = 1 TO LEN(S$)
200 A = ASC(MID$(S$, I, 1)) ' 1文字取りだし, アスキーコードに変換します
210 '
220 ' ----- アルファベットを1~26に変換します -----
230 C = 0 ' アルファベット以外は 0
240 IF A >= &H41 AND A <= &H5A THEN C = A - &H40 ' A...Z = 1...26
250 IF A >= &H61 AND A <= &H7A THEN C = A - &H60 ' a...z = 1...26
260 '
270 ' ----- 画面表示, 計算 -----
280 IF I <> 1 THEN PRINT " +";
290 PRINT C * 6; ' 今回値表示
300 '
310 N = N + C * 6 ' 合計に足し込みます
320 NEXT I
330 '
340 ' ----- 結果表示 ----
350 PRINT " 合計:"; N
360 '
370 PRINT
380 IF N = 666 THEN
390 PRINT "おぉっ! 獣を見つけましたぞ!!!"
400 ELSE
410 PRINT "う~む・・・ 獣ではなさそうですね・・・"
420 ENDIF
430 PRINT
440 PRINT
450 WEND
460 '